﻿Imports FairShop.Objects
Imports System.IO

Public Class VerkoopsRapportForm

    Private _mainForm As Form

#Region "Constructors en initialisatie"

    Public Sub New(ByVal mainForm As Form)
        Me.InitializeComponent()
        _mainForm = mainForm
    End Sub

    Protected Overrides Sub OnLoad(ByVal e As EventArgs)
        MyBase.OnLoad(e)
        Me.NumericUpDownJaar.Value = Today.Year
    End Sub

#End Region

#Region "Events"

    Private Sub EersteKwartaalButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles EersteKwartaalButton.Click
        ZetKwartaal(1)
    End Sub

    Private Sub TweedeKwartaalButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TweedeKwartaalButton.Click
        ZetKwartaal(2)
    End Sub

    Private Sub DerdeKwartaalButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles DerdeKwartaalButton.Click
        ZetKwartaal(3)
    End Sub

    Private Sub VierdeKwartaalButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles VierdeKwartaalButton.Click
        ZetKwartaal(4)
    End Sub

#End Region

#Region "Helpers"

    Private Sub ZetKwartaal(ByVal kwartaal As Integer)
        Dim jaar As Integer = Convert.ToInt32(Me.NumericUpDownJaar.Value)
        Dim beginmaand As Integer = 3 * (kwartaal - 1) + 1
        Dim beginkwartaaldatum As New Date(jaar, beginmaand, 1)
        DateTimePickerBeginDatum.Value = beginkwartaaldatum
        Dim eindmaand As Integer = beginmaand + 2
        Dim eindkwartaaldatum As New Date(jaar, eindmaand, Date.DaysInMonth(jaar, eindmaand))
        DateTimePickerEindDatum.Value = eindkwartaaldatum
    End Sub

#End Region

End Class